height = 125
topthickness = 0.25
thickness = 5.0
finlength = 205

-- ss = splineShape pos:[0,0,0]
-- ss.adaptive = false
-- ss.optimize = false
-- ss.steps = 6
-- addnewSpline ss
-- addKnot ss 1 #corner #line [-thickness/2,0,0]
-- addKnot ss 1 #corner #line [thickness/2,0,0]
-- addKnot ss 1 #smooth #curve [thickness/4,height/4,0]
-- addKnot ss 1 #corner #line [topthickness/2,height,0]
-- addKnot ss 1 #corner #line [-topthickness/2,height,0]
-- addKnot ss 1 #smooth #curve [-thickness/4,height/4,0]
-- close ss 1
-- updateShape ss



select ss
max modify mode
modPanel.addModToSelection (Extrude ()) ui:on
$.modifiers[#Extrude].amount = finlength
$.modifiers[#Extrude].segs = 4
rotate $ (angleaxis 90 [0,1,0])	
	
hs = splineShape pos:[0,0,0]
hs.adaptive = false
hs.optimize = false
hs.steps = 20
addnewSpline hs	
addKnot hs 1 #corner #line [0,0,-thickness]
addKnot hs 1 #bezierCorner #curve [finlength,0,-thickness] [136.667,0,-5] [203.18,6.85875,-5]
addKnot hs 1 #bezier #curve  [157.805,69.0428,-5] [187.575,51.1196,-5] [134.564,83.0361,-5]
addKnot hs 1 #bezierCorner #line [0,height,-thickness] [42.5483,109.912,-5] [0,83.3333,-5]
close hs 1
updateShape hs
select hs
max modify mode
modPanel.addModToSelection (Extrude ()) ui:on
$.modifiers[#Extrude].amount = topthickness
$.modifiers[#Extrude].segs = 4
	
	
-- ProBoolean.CreateBooleanObject hs ss 1 0 1	-- order seems to matter, picking 

 select hs
--  rotate $ (angleaxis 90 [1,0,0])		
	
	